home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / commions / ca29_1 / ca29_3.exe / GENIE.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-25  |  2KB  |  63 lines
  1. S0 = 4                ; The dialing directory entry # for GEnie
  2. LEGEND " GEnie.CMD"             ; Put script name on status bar...
  3. ;
  4. ; ----- GEnie: Dial GEnie by direct connect
  5. ; ----------------------------------------------------------------
  6. ;    Note: You must edit the values above to reflect your call.
  7. ;    Variable S0 determines the entry # being dialed
  8. ; ----------------------------------------------------------------
  9. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  10. ;    if one is available.
  11. ; ----------------------------------------------------------------
  12. ;    Note: This script is written to be FCALLed, executed directly (F2)
  13. ;    or attached to a dialing directory entry (for manual execution).
  14. ; ----------------------------------------------------------------
  15. ;    Note: This script requires no other script.  It *does* require
  16. ;    a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
  17. ; ----------------------------------------------------------------
  18. ;    S0 is modified by this script.
  19. ; ----------------------------------------------------------------
  20. ;
  21. ;    Don't allow this script to execute unmodified
  22. ;
  23.     IF STRCMP S1(0:3) "name"; It's unmodified
  24.        MESS "^L"            ; Clear screen
  25.        MESS "You must edit your ID and password into GEnie.CMD"
  26.        MESS "before you execute it as a script...  ^M^J"
  27.        EXIT
  28.        ENDIF
  29. ;
  30. ;    Dial GEnie direct
  31. ;
  32.     LEGEND " Dialing GEnie direct"
  33.     IF NOT LINKED        ; If not from alt-d
  34.        DIAL S0        ; Dial directory entry number set above
  35.        IF FAILED EXIT    ; IF esc out
  36.        ENDIF        ; End test if linked
  37. ;
  38. ;    Set initial settings
  39. ;
  40.     SET BSUPPRESS ON    ; Turn on blank line suppression
  41.     SET MASK ON        ; Turn on high bit mask
  42.     SET CDISPLAY OFF    ; Ctl char display
  43.     SET DUPLEX HALF     ; Turn echo on
  44. ;
  45. ;    Synchronize with their modem
  46. ;
  47.     PAUSE "3"               ; Wait for the modem to settle down
  48.     TRANSMIT "hhh"          ; Transmit
  49. ;
  50. ;    Send name and password
  51. ;
  52.     WAITFOR "U#="           ; Wait for the 'USER ID' prompt
  53. ;
  54. ;    If we have a GENLOGON file, use it
  55. ;
  56.     SET TTHRU OFF        ; Let psw be typed
  57.     IF ISSCFILE "GENLOGON" FCALL "GENLOGON"
  58. ;
  59. ;    Exit - this script may be fcalled
  60. ;
  61.     IF FCALLED FRETURN    ; Return to caller if called
  62.     ALARM            ; Otherwise, sound alarm - we're done
  63.